

J^l JMI 
4 *tfl QljUaJI JaSI 

. I4JI uOL Vj £-aU jJl J1U £iUaa 3 Ldl AjL& .fJ&luu -Y 

A AjAAC. AaiS (jjjaal .^jUi ^jLuii - Y 

ULu -' A ji j£2li Ljj J -9 AijJLA ^aAC AJIa .. jl AIaa ^A^lujJ -Y* 

. axj La aaL False ^A«i 6ji£ i 3 i |f.. Then >«Vi ^ .t 

. a jjj£ JajjJj lilUA <j j£j La AaC. ........... AIaa ^VLtn - © 

. For .. Next aIa^ jib ^jUii.. <ul£ JUlLiI .1 

. ( <-i^lj / ) <-^Uail Aa-uj Qjjaai ^AaIuu ..Lh® 0^1 -V 

. JIaAVI ^Uia AiLualj AjA^, jIxui * LiaV .......... A_ai£Ji ^AaIuu .A 


. ............... A-aliil JLajlLuiL £C-aUjJ| Ja)A (AjIjjaIaJI ^ -H 

. ............... AaIS £jAj ^ic- |f AIaa AjU£ (2)^^ * 

. S * ^ jLwij jl £yA Jil lIuIS I A) K j^lLaI) A-ajS jjjaj jjjju c_ii£l - Y Y 

.. Select.. Case ^La -y y 

. uj% 7 > = 9 -Y y* 

.ja Jj&l l cjI^a aac- For k = 1 To 7 Step2 ^ ^ - ^ * 

........... (j-® (jLu ^.YVLtti AjjJiC. CjLa^Ic. ^ic. ^jjaj AjAAC A_aj3 <jj Jaj] -Y © 

A aKj ^^oLj. A a\<^ AJ|aJ| <2£^Vi IAjj - Y 1 

. Ajj jjaSJl iail * aj J^a (2>® jj£I jt Q^^ui JaIaj (£> a jbc . - Y V 

.dijis iai Ajji j$j!\ aUzA) Do While j' ai*a ^ - y a 

jJjVI Aa False Ja>M cjis lit if.. Then .. Else >«vi 2±»* 

. 

. ^.vVLtn < ajLrtMl JaIa ^SajA qa jjSI a jl j£j ljc jj A ij£ LLaI <jl£ IaI -Y * 

. . £)a jaSI ^j.YVutt) fl jaV 1 ^ (2^^^^ , ^ c ' ^ 

. JA 2 A 2 + 4/ 2 + 3 A^LuiaJl AJ^I lia ^uU -Y Y 

^2>a ^Uj ^Aaa* “* A-iflA_ aa2 . Y T 

































....£ Q-u Qaa £Laaa Caalol] A^u2 (j/tw/iVi ^AC AJLa - Y £ 

ULu- A jijSall aal j-a AAC Aij*-a Ajta ^JiluS.. Ala~\ -T 0 

. ja£l jl (j/rv^i lus A^a.ja AaalAC JjLuuj £)C SjlaC. - Y *1 

.Aa-uaLa <ja» List BOX SbSf j-ualac AiLua) ^aa -Y V 

^t-aUjjJj JaLuia Axa Uaa ^cJlaa ^Jc J-uaaJ La AaC jglaa.. flla^Vl -Y A 

.ja a ja aac- For E = 8 To 3 Step-2 41** ^ -Y ^ 

.L^alc Jlkj f Ija¥I £jIa £)A AAaL f jja¥l f ICAluil AaC -V* * 

. P(j*jla JLuu jaSI jt AAa-a qoslJu <jC AaLajlxa jaaj.—i .WaQj -Y* ^ 

.jA ( 2 A 3+2 ) / 2+3*2 *L£¥1 AaaLuiaJl A-ilaxSl Aaiaa ^ula -Y* Y 

.A-aK> . A-aK> f.)jatfl <£lc¥l Iaaa -YT 

: -iititin jmJI sjLaJI ^Ul ( ■ > A»SU$ ihirmll ojLvJI fsWI (V) <UUc g-a 

,vm. 

f Ijal ^AaJLua t J^)A ^Jaj-a qa jail d jl j£a i_aC ja Aj£ laaAl ^jjSa La AaC- ^ 

( ) ■ Pr0CeC,Ure 

( ) . Logic Error jaa*a AjAl*-a LaUaa Aaaaaa ^ UaaJl -Y 

r\^\ Q '') . False oj% 8 < > 8 kj£>l\ ^ata -r 

j\ AaC j j\ AaA£a JaaaL A_iajja£J) Jalaaj jLtajj l£a Aaaia Aaajja£]¥l Aj&^LaJI - £ 

( )■> 

( ). True ia>^l A-aafl UUa j-alj¥I u-a Acj-aa-a J j£aa ^jAa DO While J*¥i -® 

( )AaaajaaJl AaLuiaJI <jaij Ji-uta SjSIaJI ^aa ^a^l aalataJt jal ( * -aaa -*\ 

AaC j (ja*-a ^aai) aaaa ual a al t aj' j j*a!j¥! £>a ACjaa-a £C S jlaC Procedure J^¥l -V 
( ) . aaLaakallj jaatjVt dAA Aaiaa ^aa ^aai¥) )AA flCAlui) 

( ) . l£aC ^lc¥t (jUaa ^jla aaal jail j Caljailall ^hVutil ^jlaa -A 

( ) . ^calajJ) JalA uaUjbnl'j djUsa^Lall Aalail REM J-«¥I ^Aaluia * 

( ) . ^jCLaaaVI J^ljall Jla Aajjjaill iaiLaj J^La ^a ^aa ^ajjailV) ^Axall - ^ ^ 

( ) . S ja ja£l AJlc-Aluilj SAalj S ja p \jaVI l>1aj - \ Y 

( ) ■ lAj" (j^ fAaouu |f.. Then .. Else >»¥i y 

( ) . Aailalall Ac- jalall Calalaall ^>aaaa ^aaj j) j£a calUall ^ jj A-aa^ ( fl u<oj - ^ £ 




















( ). Uaul 4 jijSali lj !ja jjc- Aijx^ aJIa (J& For.. Next j-®Sft ^Aiiuu - ^ ® 

( ) . (jLull £jj c_u^ Jjjjla ^ Xaj A_JjjiJ AaLuia JLuu jj jjaaSI! $ jSI J ^ £ Jij C^i J^ - ^ 

£jJll qa CjIjj sua ^.iiluJ AjjJuC' LliLa^lC' ^Jc- (JjIaI ^tijl (jjjaul - ^ V 

( ) ( Single , Long ) 

( ) . JaiLujj ^lAiiujI JjjAj ftjiVt 6^ o^aj A 

( ) . ^aa-ul l^J jjjjjlaSJI SjSIAj (jjla-a VB.NET ^ CjIjjxIaIIj 1> ^a£j A 

( ) . CjjIjjJ! (jc- j£le-Vt ^ Dim J^»l f Ailuu -Y * 

^ uji ja Sac- qaa jjS ajUS ji j£j Procedure I^tAiiui! ^j*Ji -Y ^ 

( )^jJ) 

( ) . Jj*-ulJ 1 f Lui Uai Aalc- Jjilaj VB.NET ^-aljjJ Aaijj ^Uj! j^iaj ^ ill Uaill - Y Y 

( ) . u^j j^i X = X >*Vt-Yr 

( ). fij^vi fic-Aiwi He- *t j^vi ^jii j>* ^ jbiiwV Parameters fAiiuu -y t 

( ) . Variable ju*iuiL j^\ jib cji jj*i^i ^ j£i^vt ^1 j -y ® 

( ) . ^Luitfl J<-flljliil JjLujj AilS ^ Jjjjla (j-aiaiu £jjj ^jjaSJVl f UjluiVt -Y *1 

JojLujj AiU q\ (j^aj (jaa ^uiL ujl j J>a A^jaa-a (jc- Sjbc- AJl.il! -Y V 

^\| ). Parameters aj*jj Values 

( ) .End If A^ls ^ ^!jV! kL False ^j0^ til If.. Then ^ -Y a 

i^oic- jjUaj Taxes ( 0.05 ) ftj^t fi^Aiuii iic. _y a 

( ). Argument 

( ) . ^A£il! j^a <> Sj^a jjj*j ^^ii^t -T * 

wJUJi ji^iii 

: ^1 ^ JSi yOi^UI ^1 —£1 

. ^jis A-djiii ajiijj K Name c^t 

a jj& a_ia 2 j a-ojs aj^!aj Price ja 1 a j^ic>! -Y 

. F Name ^ Eyad <^lt -r 

. Text Box3 AjUH! £jj-a [Jjfi^A ^LUA .£ 
. List Boxl ^-Aiialt StJt Jib Monday >-ai*it Aitiai -o 
( aj A-aja ) ^j;J! ^ljjU Aiij^j (jjjiii Today jjxIa <j!^t 








. Gender f*-b jj*ia - v 

For Next j-*Vl ^bVutb AjUsJ) J^b “i J t qa ji^vi j& -a 

. Do While 

. A © £>* 4 Ik-lb' CblS bl Jb-a-a 4JLuij ^iajC- - H 

. List Boxl Sbi jt-ya-a * 


4£^Uta9 <UmI 

fOd . >£21 ffldjJI K , E d^ljii ^dd 4u>i tLaWI -1 

. If Alai jala^y»ib dLaWI ^«JI Jd^y 



4u^JI Jd$^y ^ A Jl f jy <Ui$>JI dld*2l 4£UaJ ^idd 4ar^ dUWI t 
. Do While 4lafe£ For Next Alafr ^LaWI ^yJI 
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Dim A , sum as integer 
For A = 14 To 4 Step -4 
TextBoxl.Text =TextBoxl.Text&A 
Next 


Dim A as Short 
A = 6 

Do While A < = 10 
Labell. Text = Labell. Text & A 
A = A + 2 
Loop 


it 


. Labell u ■ 


V.S 0f 


_0 


Arabic = 40 


Computer = 10 

IF B > 20 Then 


Math = 30 

A = 30 


If Computer > Math Then 

B = 50 


Total = Computer * Arabic / 2 

End If 


Else 

C = B * 2 


Total = Computer + Arabic * 2 

^jJaj <LLuJl CllLtulxll' _lse_j 


End If 

A =., B =., 


gjJaj AJajLunI) iljtn Jau 

C =. 


Total =. 

.B > 20 


Arabic =. 















^2 

: 1 Mil - 

-1 

Function Average ( ByVal a As Single , Byval b as single , Byval c as 

single) as Double 

Dim Result As Single 

Result = (a + b + c)/3 

Return Result 

End Function 

JjM a l aa ja^uAj ^2 

A**l J\ Aa£1) -r AJIaJI lajlyiJ -Y AM 

( AxaIjI) Aaj 

- AJIaJI JaiLuij _ 4jjA]j ) (jUj £ jj - £ 

.( '• J ^ 

j © ) H\ AX AJ|a1| f IXAluil A -0 

Sub Showoddoreven ( ByVal Start As Integer) 

Dim i as Integer 


Labell . Text = "" 

For i = Start To 10 Step2 

Labell . Text = Labell. Text & " 

Next 

M &i 

End Sub 

A^£Jj qa L&a £\ jlluib ^2 

* 1 ja.V! iajtuij -t 

p\ J^V) ^»Ull - y 

-£ 

iftjLiijil jbj -V* 


AjI AjJ) 4^j2 .0 

( 2 ) AaiaI) AX' ff If'Aluij Aj£ -A 

SAbjil JAjla -V 








J$iil JI^JI 


jnljtfl J*i U» 4fehfeall <uU<il y*\ 

; ^uij VB.NET AjUS fUaj j^iaj ^lSl UaaJ) -> 

( Syntax Error - Logic Error - Runtime Error ) 

.|f ... Then ... Else>»Vl 31*?. -Y 

( End If - EndlfElse -End Else ) 

: (j* Gender aJl^o!\ -y 

( Dim Gender As Decimal - Dim Gender As Integer - Dim Gender As Boolean ) 

.(for m=3 to 15 step3) -t 

j\r ^ ajiilji ^isjvi- ^j\\ fisjvi- r ^iSjVi) 

.Aiuiijii Text Box aj^i j&ja ^Jajj JiU 

( - Insert - Add () - Focus () ) 

(j-owokj ja\S ^a^-ua AjJlall £_wa]| qa <j\ 

( Number = = Number - 3= Number ) 

( Total — As — Age ) jjaIaJ fLa-uiU ^Laa a_uVi cjtAliil -V 

• ljULu£ l(jLaj AajaLaJl CjIjJVI jIs-uj| A^u2 - A 

( 4_c-- A^-ia.x^a jJC- Aa^Jjj - A_ia3j ^ 

. M 4-®Ji uuc- For m = 10 to 1 Step -2 cW J 

( Ajlgill 4^<u3 j! (jx ^)i_L^al - AjlgiJl “UuS (_j^a A^uS ^ja ) 

.jjxj jjIj SjSiiii ^ -> * 

( a!A\ - cAA\ - ) 

( 255 — 0 ) 0 4 f^l .£jj (jA cjl- \ \ 

(Integer - Byte - Short - Single ) 

.4_ajB Iklj Boolean 6* ^t 

True or False False -J^True) 

AoLuUl join 0 jU jlfl AaaLuiaJl ujLlaxJt Liia bjbjlji uua - ^ T 

.j* MsgBox ( 3+3 A 2/(8 Mod 5 )) 

(8-6 - 4 ) 

















■ lllULu£ jLAJ 4jaJllj3 .J|ja3| ^IauiI 4uu2 - ^ t 

( 4-i3 j^. - 4 -\j^. j.tO jjc. 4aa3j - 4x- jlla ^ 

. UJ*^ 4^1 j j^auj If 41 aa 4jIo£ jLaa - \ ® 

( Else - End If - Then ) 

: [^a .uj VB.NET 4*L jji Jjjuiu ^uU liaiJi -s *1 
( Syntax Error - Logic Error - Runtime Error ) 

• Uakll \ht> jjuxj i ^-aUjj JjlaluLA 4 ^Lula luLuli. 4_ajjj Uai. ±^j I j| - > V 

( Syntax Error - Logic Error - Runtime Error ) 

■ Uai l^Liwaj oi#j Dimension X As Byte 4 j 3 ife j$J52 ^3 UaaJ! 4 Jiuij a 
( Syntax Error - Logic Error - Runtime Error ) 

; jjjjaa£J| $ jil4 fjk jjau»il jtooil £jl - \ 4 

( 41aJj 41aJ ) 

. 4^1 j jj*1a 4uu 2 ^ic- I .Iaojla f ji3 y jia La-AoC- . 41aa -Y * 

( Select.. Cas^C - If -- Then - If.. Then .. Else ) 

i t—illlall ^uuj jjxIaU ^oau^ll fjJi\ jo^l -Y \ 

( St name - name - Name** ) 

Private Sub Button 1 _Click. 

Dim K as Single 
K = Text Boxl. Text 
If X >= 50 Then 
MsgBox ("£*U") 

End If 
End Sub 

: ^uui jjSii ,jA 

.Sbl ^s- .diJhJl I j) 4 jiJI iaiD - > 

.£j 3 O'®. joxla U^VI -Y 

. 4 j 3 ioiu ^jU jjia Text Boxl Sb) jib 65 4 -ajU) Jti 4 i juc- -t 

.jin 0 jU jjL Text Boxl Sbl Jib 45 Jti 4 i .iic> -t 

4jlai aJlc-b fl* <_£ jLuu jl ^a jail X buli I j| AJLuij jaajxa JjjL3 Jjill -0 
. 0 * o -a Jiil 4 Aalil iluli I j) LusjI u_lui| j 4JLuuj ^Jaxa dioau Jjiil 

















Private Sub Button1_Click. 

Dim E as Integer 
E = Text Boxl. Text 

If.Then 

Msgbox C^jJ ?M") 

Else 
Msgbox 
End If 

. ............. 4 a\^\\ JLajlLuAj .. CP 

. ( ^ Jjfl ^ I ^jj ) fi&jJl £^2 4i jml la J a£>\ - Y 

ciuakj 1 Sjlf'L AJLujj J^b a jLjC- jj^ia -Y* 

. Labell Sbl J*b 

. (j^aSllSj jajJuJj JLa£) Jxj j jlxui |f AlaaJ JjjLuJl JAjL&j ^2 -t 


Dim X as Single 
X = Text Boxl .Text 
Select Case X 
Case 0 

Labell . Text = fM" 

Case Is > 0 

Labell . Text = " ^ fM" 

Case Is < 0 

Labell . Text = £J” 

End Select 

. £}* <j^ajxll 

.ja x = Text Boxl . Text * 1^1 <> ufcJA 

. { js> iaj3la £j&ji\ Select Case 4i*a. p&Luj -t 

jA J j£ll -bill ^uU (jli AjU£J) JaI J § JIaj) Aic- -1 

jA liili ^ljU Uli AjU£Jj J^b -4 4-Ajlii IaC’ -0 






































.Lu^j 5 Ji*2l (jA V-1j 3 JAaiil (—ijj-iall Ac-lolal JjjLuiil JjSil ^JL La JjAjuj ^3 - ^ 

: ^13 Ji&b j4ib 



.> Product = 5 * K aIa^i -Y 

. t_ijJail JjAa d^ 1 . £jjJI Cy* . jjiidl CF u^VI ^2 -T* 

. JjAa £t2b £jj*aJ .£j2Jl £>a .jjiid! u^VI ^2 - i 


tJUJI JI^JI 

: I QljUiJI JUI ^OaJI ^UmII jSil 

^uil) ^hVu«i) dliSj ^laUjJI ibbuk2 LiH jjtuj f UjI j f Uj! Ig2 ^j£ (jLaj - \ 

_ 42 


. ^JajJu jjjsj 4-xnj ^Js> Iajxa j! j£jJ| ^jjJL La-IoC- ^.vVLtn 41 a^ - Y 
(jijaall 4 -ujjjSJVI 2aituijJl ^dLLuU »1 a*ja ^2)jJP djiui <jc> Sjbc- -? 

. 4H| Aj cuioa ^xuil ^.iVinij <jbj £ jj - i 

. ^c-aUjLI J^Ij CjjIjiSI (jc- f±kluu <LaI£ -0 

^ j jj*1a 4_aj 2 ^ic- ,1 a2xa £ jidl <j j£j LA-AaC * AXa^. - *\ 

, jaIjVI 6L Lim ^jj AjIc-jIujI j2c <jjxA ^uj! lLl^2 ujUauIxIIII j jaIjVI <j^ 2&j A -v a _V 


. Jj£ll AjU£ ±£> dbj AaIII jaIjI Lj±xj liak - A 
. cliijjil j 0 jjUII (jjjaa] ^2 j (jLu £ jj - A 

LjLujJ jl b&Lk.lA ^Jc> l^Au!a2 ^JJJ <jjJUA ^Ull JaI jVI (JA 4£jA^A (j£- S jbc- - \ * 

. A-aji£j Jjjuj 


. Igj AJja-aII ^All ^I±L1 ujI dlLj Ja£3 <^VI fbjj IgJ (ja uuaiL2 <j£aj -M 

. jJuA jl cLliIj JaI J 4»ajS (jjjsu jl ^uaji *■ Iaa* d - ^ Y 

. llak S jj-uaj AjaIoIa jl AjjLua a jajsu Ac-Ltua luwij f lixkVl <j-a ^jj - ^ T 

. JaII (JA J±XA JAC. (jjJLA Jj£ j! jij] AIa^ - ) i 

. JLiJ^l ^12 La AiLualj jla-uj ^LuuV ^AaJLuj 4 aI£ - ^ ® 

. ^jLu ^jj JiS ^jLI qa j (j2*iVI AaJI - ^ *1 














Vj Aj£]| A I 4 JI £ jajJI (jL®j if^ i-'l I^-nN A \\ AjU£ yk ^±kluu - ^ V 
. jj£I jl (j-aiaiu Aba Aail AC JjLujj (jC S jbc - ^ A 

. ^jMU (JlLuuJ J^l j) AAA -* (J^JOi (jC CJLa^XA J<uU (jC- d jljC - ^ A 

. l$J A-uXuaibill ^aaill f j*2a ^ Aju&j Ajju 2 ^C-AIujj -Y * 

j) aAja-a A^uIj AjjjlL® ^jjj dAj^«a A_<u2 AjbomJ J^Ijla *1 ja.! Aj^j (jo® (jj£jj -Y \ 

. j) jjxIa 

. f Ij^vt f’lC’AlujI AjC AAajj f )ja«Vi Aj£ JiklA l^djAklujj ^JJ ^U! (jC 0 jLc -Y Y 

. jj£I jl (j-a^oiol AjCj j! AjA£j Ja^j AojjjjSJI JjLujj JLwjjI (jc Sjbc - Y r 

. A^uL Ajxj Vj frlj^l -Y t 
. ^laUjJ} JIIa CjIjjxIaJI (jc- (j^lc^U ^aaIuu A_aIS - Y^ 

Dim K as Long Wcft^ ' 

ListBoxl.ltems.Clear () 

Do While K < = 7 ^WT' 

ListBoxI . Items . Add (K) 

K = K + 2 

Loop IpP 

. jA (Jjluiil Ajiil qa (jjt ajxil - S 

. U& AjSil yk A aAaIuia^I jlj£Ul AIaa -Y 

. yk jjiuJi Ajiii ^ ujj£ aijaH j^i jvi -r 

.ja ListBoxI .Items.Clear () A 5 SJ 1 <> q^js\ - t 

dAbJJl jA*-aj. yk AjI^IJI A-ajSj.^A JjjLuiJl AjSJl ^ AjIAjJI A-®jS -d 


.A-ajS u/Vi UAjc jIjSaJI (-iijjli -V 

. yk jlj£Ul (-iiijli taAjC' k A_®jjj -A 

. yk ^JjLuJI Aj£ii yk Loop 4 oK\i (jo® o^ 3 

SIa) J^Ia ^A&lubJ) J^aj Y (j-® AjajJJI aIac-VI <j*ajxl (Jjtuii! Ajill Jac- -> * 

. TextBoxI £*>• 


















Dim K , E , Sum as integer 
E = Text Boxl . Text 
K = 2 

Do While K < = E 
Sum = Sum + K 
K = K + 1 
Loop 

Label 1 . Text = Sum 

.JjLJI qa - \ 

. ja E = TextBoxI . Text 4lAaJ! 6* 

. ja K = K + 1 

. (jb A. jl j£iS! AIaa - £ 

. ^JL La jjjfcij A Y <ja jIjc-VI £jaa»a <jiajxS (JjLuJI j j£Jl Jjc- -© 

^ 4i*»l 


& 


-r 


Dim X, Y,W,Z as Integer 

Z=5 

W=10 

For X = 2 To 8 Step 2 
Y= Y+X 
W= W-l 
Next 

If Y> Z Then 
Z = Z + Y 
End If 


.W jjijAil 4-ajfl - ^ 

. (jA Y j^LLaJI 4-aj3 —Y 

. IjA Z ALLaII 4_aj3 -V 

.^A X ^-ajS -£ 


_Y 

Dim A , sum as integer 
For A = 1 To 12 Step3 
Sum = Sum + A 
Next 

Label 1. Text = Sum § 
Label 1. Text = A ' 


ilMl5 

IF K > 15 Then 
E = 20 
K = 40 
End If 
C = K * 2 

AajS ^jJaj aLLuJI Jjiii A*.j 

E =., K =., jjiUI 

C =. 






















Dim D As Single = 72 
Select Case D 
Case 85 TO 100 
Msgbox ( "Excellent ") 

Case 84 To 75 
Msgbox ( "Very Good" ) 

Case 74 To 65 
Msgbox ( "Good" ) 

Case Else 

Msgbox ( "Sufficient" ) 

End Select 

L_a j j_a) ji\ Sf Ij_2 Xju 


-t 

Dim X , Sum as Short 
X = 1 

Do While X < = 4 
Sum = Sum + X 
X = X + 1 
Loop 

Msgbox (Sum) 




: <jd2l **I 

-1 

Dim Today As Date =#6/8/2016# 

( . ) ^ujL ( .„ ) . jilt jc ji^VI ^1 JjDl 

. ( .. ) 4j 4 _u|j1jVI (j-otuakl SjSI^I ^ 

.r 


Const pi As Single = 22/7 

( . ) ^uib ( . ) . ljjIj ^1 (JjLuJI Jjiil ^ 

. f UjI .A-ajaII o ^ 


Dim A as Integer 
A = 2 

Do While A < 6 
A = A + 1 

Text Boxl. Text = Text Boxl. Text & A 
Loop 


-r 


. Text Boxl AjUSJ) Shi J^h La - 


















